


Namespace Producto
Public Class Producto



 Public Function Combo(ByVal vTodos As Boolean, Optional ByVal vmensaje As String = "Todos") As Entity.Producto.ProductoCol
dim objCol as  New entity.Producto.ProductoCol
dim obj as  New Data.Producto.Producto
objCol = obj.Listar("", _
		-1, _
		-1, _
		-1, _
		-1, _
		-1, _
		"", _
		"", _
		-1, _
		-1, _
		"", _
		"", _
		-1, _
		"", _
		0.0, _
		0.0, _
		-1, _
		"", _
		"")
 If vTodos Then
Dim ent As New Entity.Producto.Producto( _ 
		-1, _
		vmensaje , _
		-1, _
		-1, _
		-1, _
		"", _
		"", _
		-1, _
		-1, _
		"", _
		"", _
		-1, _
		"", _
		0.0, _
		0.0, _
		-1, _
		"", _
		"")
objCol.AddPrimero(ent)
End If
Return objCol
End Function


'***************************


public Function Listar(ProductoId as integer) as Entity.Producto.Producto

dim objEnt as  New entity.Producto.Producto
dim obj as  New Data.Producto.Producto
return obj.Listar(ProductoId)

End Function


        '***************************

        Public Function Listar(ByVal Nombre As String, ByVal tipoid As Integer) As Entity.Producto.ProductoCol

            Dim objCol As New Entity.Producto.ProductoCol
            Dim obj As New Data.Producto.Producto
            Return obj.Listar("", _
              -1, _
              -1, _
              -1, _
              tipoid, _
              -1, _
              Nombre, _
              "", _
              -1, _
              -1, _
              "", _
              "", _
              -1, _
              -1, _
              -1, _
              -1, _
              -1, _
              "", _
              "")

        End Function


        '***************************





        Public Function Listar( _
          ByVal ProductoId As Integer, _
          ByVal Catalogado As Integer, _
          ByVal CatalogoId As Integer, _
          ByVal TipoId As Integer, _
          ByVal MarcaId As Integer, _
          ByVal Nombre As String, _
          ByVal Codigo As String, _
          ByVal FormaSimpleId As Integer, _
          ByVal FormaCompuestaId As Integer, _
          ByVal Concentracion As String, _
          ByVal Presentacion As String, _
          ByVal Fracciones As Integer, _
          ByVal ProductoStock As Integer, _
          ByVal ProductoPrecioUnitario As Double, _
          ByVal ProductoPrecioPromedio As Double, _
          ByVal ProductoGenerico As Integer, _
          ByVal ProductoDescripcion As String, _
          ByVal ProductoObservacion As String) _
        As Entity.Producto.ProductoCol

            Dim objCol As New Entity.Producto.ProductoCol
            Dim obj As New Data.Producto.Producto
            Return obj.Listar("", _
              ProductoId, _
              Catalogado, _
              CatalogoId, _
              TipoId, _
              MarcaId, _
              Nombre, _
              Codigo, _
              FormaSimpleId, _
              FormaCompuestaId, _
              Concentracion, _
              Presentacion, _
              Fracciones, _
              ProductoStock, _
              ProductoPrecioUnitario, _
              ProductoPrecioPromedio, _
              ProductoGenerico, _
              ProductoDescripcion, _
              ProductoObservacion)

        End Function


'***************************


        Public Function Grabar( _
          ByVal ProductoId As Integer, _
          ByVal Catalogado As Integer, _
          ByVal CatalogoId As Integer, _
          ByVal TipoId As Integer, _
          ByVal MarcaId As Integer, _
          ByVal Nombre As String, _
          ByVal Codigo As String, _
          ByVal FormaSimpleId As Integer, _
          ByVal FormaCompuestaId As Integer, _
          ByVal Concentracion As String, _
          ByVal Presentacion As String, _
          ByVal Fracciones As Integer, _
          ByVal ProductoStock As Integer, _
          ByVal ProductoPrecioUnitario As Double, _
          ByVal ProductoPrecioPromedio As Double, _
          ByVal ProductoGenerico As Integer, _
          ByVal ProductoDescripcion As String, _
          ByVal ProductoObservacion As String, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Producto.Producto
            If ProductoId = -1 Then
                _codigo = obj.Insert("ins", _
  ProductoId, _
  Catalogado, _
  CatalogoId, _
  TipoId, _
  MarcaId, _
  Nombre, _
  Codigo, _
  FormaSimpleId, _
  FormaCompuestaId, _
  Concentracion, _
  Presentacion, _
  Fracciones, _
  ProductoStock, _
  ProductoPrecioUnitario, _
  ProductoPrecioPromedio, _
  ProductoGenerico, _
  ProductoDescripcion, _
  ProductoObservacion, _
 vUSuario)
            Else
                _codigo = obj.Update("upd", _
  ProductoId, _
  Catalogado, _
  CatalogoId, _
  TipoId, _
  MarcaId, _
  Nombre, _
  Codigo, _
  FormaSimpleId, _
  FormaCompuestaId, _
  Concentracion, _
  Presentacion, _
  Fracciones, _
  ProductoStock, _
  ProductoPrecioUnitario, _
  ProductoPrecioPromedio, _
  ProductoGenerico, _
  ProductoDescripcion, _
  ProductoObservacion, _
 vUSuario)
            End If
            Return _codigo

        End Function


'***************************


        Public Function Insertar( _
          ByVal ProductoId As Integer, _
          ByVal Catalogado As Integer, _
          ByVal CatalogoId As Integer, _
          ByVal TipoId As Integer, _
          ByVal MarcaId As Integer, _
          ByVal Nombre As String, _
          ByVal Codigo As String, _
          ByVal FormaSimpleId As Integer, _
          ByVal FormaCompuestaId As Integer, _
          ByVal Concentracion As String, _
          ByVal Presentacion As String, _
          ByVal Fracciones As Integer, _
          ByVal ProductoStock As Integer, _
          ByVal ProductoPrecioUnitario As Double, _
          ByVal ProductoPrecioPromedio As Double, _
          ByVal ProductoGenerico As Integer, _
          ByVal ProductoDescripcion As String, _
          ByVal ProductoObservacion As String, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Producto.Producto
            _codigo = obj.Insert("Ins", _
  ProductoId, _
  Catalogado, _
  CatalogoId, _
  TipoId, _
  MarcaId, _
  Nombre, _
  Codigo, _
  FormaSimpleId, _
  FormaCompuestaId, _
  Concentracion, _
  Presentacion, _
  Fracciones, _
  ProductoStock, _
  ProductoPrecioUnitario, _
  ProductoPrecioPromedio, _
  ProductoGenerico, _
  ProductoDescripcion, _
  ProductoObservacion, _
 vUSuario)
            Return _codigo

        End Function


'***************************


        Public Function Updatear( _
          ByVal ProductoId As Integer, _
          ByVal Catalogado As Integer, _
          ByVal CatalogoId As Integer, _
          ByVal TipoId As Integer, _
          ByVal MarcaId As Integer, _
          ByVal Nombre As String, _
          ByVal Codigo As String, _
          ByVal FormaSimpleId As Integer, _
          ByVal FormaCompuestaId As Integer, _
          ByVal Concentracion As String, _
          ByVal Presentacion As String, _
          ByVal Fracciones As Integer, _
          ByVal ProductoStock As Integer, _
          ByVal ProductoPrecioUnitario As Double, _
          ByVal ProductoPrecioPromedio As Double, _
          ByVal ProductoGenerico As Integer, _
          ByVal ProductoDescripcion As String, _
          ByVal ProductoObservacion As String, _
        ByVal vUSuario As Integer) As Integer

            Dim _codigo As Integer = -1
            Dim obj As New Data.Producto.Producto
            _codigo = obj.Update("upd", _
  ProductoId, _
  Catalogado, _
  CatalogoId, _
  TipoId, _
  MarcaId, _
  Nombre, _
  Codigo, _
  FormaSimpleId, _
  FormaCompuestaId, _
  Concentracion, _
  Presentacion, _
  Fracciones, _
  ProductoStock, _
  ProductoPrecioUnitario, _
  ProductoPrecioPromedio, _
  ProductoGenerico, _
  ProductoDescripcion, _
  ProductoObservacion, _
 vUSuario)
            Return _codigo

        End Function


'***************************


public Function ELiminar(  ProductoId as integer,vusuario as integer ,optional vopcion as string="Delete") as integer
dim _codigo as integer =-1
dim obj as  New Data.Producto.Producto
            _codigo = obj.Eliminar("vopcion", ProductoId, vusuario)
return _codigo

End Function

End Class



end namespace

